SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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wus uu usu 
wu wus wu 
wus uw wus 


AAS A dd 
AAS AAS LA US a 


LLLLLLLL 
LLLLLLLL 


Vv Yu 
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aqaaaaaaaaaaaad 
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nw AMWWMw 
nw ANMM 
nw nn nn 
nw own ow 
nn nn nw 
nw mn nn 
nw nw mw 
nw mn nw 
ANNM nw 
ANNWM mn 
ww vw 
wv KAD 
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vv we 
ww YUwU 
wv end 
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nn nw ow 
mn nw own 
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nw nn nn 
NNMNM nw 
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-TITLE CSPCLIENT - Client jacket routine calls to CSP 
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FACILITY: VMS 

ABSTRACT: Various ‘‘clients’’ are placed here for loading with CLUSTERLOA. 
AUTHOR: Jake VanNoy 

DATE: 27-May-1983 

REVISION HISTORY: 


V03-003 ADE0001 Alan Eldridge 4-Feb-1984 
Convert to use EXESCSP” -BRDOCST. 


v03-002 JLV0306 Jake VanNo 29-AUG-1983 
Check error status and deallocate CSD if failure. 


v03-001 JLV0284 28-JUL-1983 
Minor changes to gi y erakees writes. 
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; Symbols 
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0000 -PSECT $$8190 
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-PSECT $$$200 


SSEP=198¢ Oesoaies 


; Read Only Data 


; Code 
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 SBTTL "EXESCSP_BRKTHRU = Send Break-thru message throughout cluster’ 
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CALLING SEQUENCE: JSB EXESCSP_BRKTHRU at IPL 0 
INPUT PARAMETERS: R6 Address of BRK structure 
OUTPUT PARAMETERS: RO,R1 Garbage 
ALL registers are preserved except RO,R1. 
COMPLETION CODES: RO completion status: 
S$_NORMAL = normal success 
er = various error codes 


XESCSP_BRKTHRU:: 


: Get a CSD. 


MOVZWL BRKSW_MSGLEN(R6) ,R7 ; Message len 
ADOL #CSOSAB A- 


OOOOOCGCOOOCOOOOOOOOOOOOOSOOO ws 


BAHAI MAA AAA MHILAIONIDID 8 0 9 OS SI | “DOO OCOOCOCOCOCOCOCOCOOCOOOOSOOOOSOOOCOSOO Ur 
PAAAAA AA AAA ASO NING BLOM OM DAAAPAASASAWS FS NOOCOOCOCCOOCOCOOCOOOOOOOOOSOOO 


57 008¢ c6 3¢ ; th 
51 $7 00000072 BF C1 3 : add te CSD header 
00000000'GF 1 JSB eteueemrat tee meen S Allocate and init a CSD 
e Py ocate an n 3 
9? $ 18 BLBC ett :; If LBC, return error 


: Init private portion of CSD 


ASSUME CSDSL_RECVOFF EQ 4+CSDSL_RECVLEN 


1A 7¢ CLRQ CSDSL_RECVLEN(R2) ; No return data this trip 
22 A D4 CLRL CSDSA_ASTADR(R2) : No AST needed -- return will 
' 3; therefore be synchronous 
33 a2 90" 90 0 MOVE  S*#EXESC_SYSEFN,CSDSB_EFN(R2) ; Legal event flag 
OF A 1 ce MNEGL #1 ESDSL CSID(R2) ; Use ALL BUT ‘'my” node 
52 A 3 ' MOVA csb AB_DATA(R2) ,RB 3; Get pyr to private data area 
1 a2 58 3 C3 0 SUBL3 R Rs CSDSL_SENDOFF (R2) : FILL in the xmt data offset 
12 a2 5 C1 ADDL3 © #CS0$f_BRK_ASGBUF ,R7,- : FALL in the xmt data Length 
CSDSL~SENDLEN(R25 ; 
° L 3 ent code 
0c A202 «BO MOVW #CSDSK-BRKTHRU, CSD$W_CODE(R2) Cli d 


Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Se Se Ge Ge Se Ge Fe Ge Se Se Fe Ge Ge Ge Ge Ge Se Se Ge Ge Se Ge Fe Se Se Se Se Ge Se ee ee FH Se Fe Se Se os ee Boe 


a a a tt et td ss ss ts st th 


ASSUME CSDSL_BRK_FLAGS €Q 4+#CSDS$L_BRK_CARCON 
ASSUME CSDS$T"BRK-SENDTO €Q 4*CSDSL “BRK F AGS 
8 ASSUME CSD$WIBRK“SNDTYP EQ — CSD$T"BRK"SENDTO*BRKSS_SENDNAME 
ASSUME CSDS$SWBRK-REQID EQ 2+CSD$W~BRK-SNDTYP 
ASSUME CSDS$W7BRK-TIMOUT EQ 2+CSD$W~BRK-REQID 
ASSUME CSD$WIBRK"MSGLEN EQ +CSD$W~BRK-TIMOUT 
ASSUME CSD$T“BRKMSGBUF EQ 2+CSD$W~BRK"MSGLEN 


Fe 4 
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Gee cbO8 “EXESESE_ORE THRU = Send Break-thru messa g-§ P-198¢ 90:38:03 YOYSLOA. SRE CSPCLIENT.MAR; 1 ad (3) VO4- 
52 oD é ] : PUSHL R2 ; Save address of CSD : 
53. § D 1 § V R8,R3 : First address ; 
Ht 3 A Dd B 1 MOVL BRK SL CARCOMCAG) (R3)+ ; carriage control 3 
BA p 1 MOVL_ BRK ; FLAGS(R6) , (R3)+ : Flags ; 
1 43 MOVC3 #CSO$S_BRK SENDfO,- ; ; 
3C A 45 4 BRK 1-8 NDRAME (R f (Rs) ; Copy in send to string ; 
of A6 2B 4 1 MOVW BRKSW_SENDTYPE(R6) , (R35)+ 3; Send sree 2 
50 A6 OCB 4 1 MOVW BRKSL_REQID(R6) (R3)+ : Reques or ID (low word) : 
4E Ag 8 1 MOVW  BRKSW-SECONDS(RO) , (R3)+ ; Time out in seconds ; 
83 2 3 134 MOVW R7,(R3)+ : Copy length 3 
63 O08E Cé 7 f ! 5 MOVCS R7,BRKST_MSGBUF (RG), (R3) ; and message data ‘ 
$2 8ED0 POPL —-R2 ; Get address of CSD : 
1 : ; 
3s 129 : Send the buffer to the target node. : 
6 146 : Since we specified an AST address of 0, the call does not return : 
6 14 3 until the dialogue with the last node has completed. Furthermore, ; 
144 3 this means that we should deallocate the CSD whether or not there's 3 
0 127 3 an error. ‘ 
Og 123 : See Exg SCs? _pacsT preamble if an AST routine is to be added. : 
? 148 3 Also, if an AST routine is to be added, make sure that our caller F} 
8 136 : does not have AST's enabled. ‘ 
6 13 : ; 
00000000'GF 16 6 1 § JSB G*EXESCSP_BRDCST ; Send message out to world : 
50 OD és 134 PUSHL RO ; Save status : 
50 52 00 6 155 MOVL R2,R0 : Input to deallocate routine : 
00000000'GF 16 ce 13 JSB G*EXESDEALLOC_CSD ; Done with it. 
50 BERD a 8 POPL RO + Recover status 
0 74 159 200$: RSB 3; Done 
7 160 
7 161 
7 162 .END 
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00000000 RG 
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; Psect S 


ynopsis ! 


weer ewe $ 


ABS . 0 — .») 00 ¢ 0.) NOPIC USR CON ABS 
SABS$ ( -) 01¢ 1.) NOPIC USR CON ABS 
$$$190 0 ( *) g { >) NOPIC USR CON L 
$$$200 0 ( 1172) ( 33) NOPIC uSR ¢ L 
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; Performance | indicators : 


CPU Time 


z2 
oo 
Se 
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E NORD NOWRT NOVEC BYTE 
E RD WRT NOVEC Byte 
E RD WRT NOVEC BYTE 
E RD WRT NOVEC BYTE 


ye PP Tr et tt et ee ee ee Dk 


Phase Page faults 


Initialization #3 :00: 9 :00:01. 
zonnene processing \} :00: z 100: ° 
Beast table sort : :00: ¢ :00: ; 
Symbol table output 5 : “08 ; 


= Client jacket routine calls to tsp’ 1g-$te ~1386 0: 3h: $3 peucvas Oe v04- 


CSPC 
SYSLOA.S fesP Cul 


TTR 
VAX=-11 Macro Run Statistics 


Psect synopsis output :00:00. :00:00. 
Cross-reference output :00:00. :00:00. 
Assembler run totals 38 7:00:03. 7:00:16. 
g,york ing gi Limit wa Ms be pages. 
$78 bytes pages) o rtual memory were used to buffer § e intermediate soge 
re were pages of symb L table , SPece al ose got hold 295 non-loca “ local symbols. 


i source lines were read in Pass 1, prod yg 1nd a1 ect records in Pass 
11 pages of virtual memory were used to define macros. 


yl Ney 9 agen te bie 


! Macro Library statistics a 


jnneandeqesesebse encase 


Macro Library name Macros defined 
spuA :CSYSLOA.OBJICLUS stea. -MLB;1 1 
$ :LSYS.0B8 : LIB.MLB £ 
SDUA b: SYSLIBISTARLET. ALB; 2 
TOTALS (all es es) 7 


363 GETS were required to define 7 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CSPCLIENT/OBJ=OBJ$:CSPCLIENT MSRC$:CSPCLIENT/UPDATE=(ENHS$: CSPCLIENT) +EXECMLS$/LIB+LIB$:CLUSTER/LIB 
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